home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
emulator
/
zxam spectrum
/
zxam_rexx
/
español
/
loadscr.zxam
< prev
next >
Wrap
Text File
|
1995-07-31
|
989b
|
34 lines
/* este scrip carga una pantalla de spectrum (ficheros .scr salvados por "Z80") */
/* comprobar si el emulador está ahi... */
address command
if ~show(ports,ZXAM_REXX) then do
requestchoice 'title "ZXAM Script error..." body "No encuentro el puerto del emulador!!" gadgets "AARGH!"'
exit
end
/* Almacenar el estado inicial del emulador */
running=zxamactrun() /* 1=en marcha */
zxamstop() /* lo paramos */
/* requester LOAD */
oldpath=zxamactloadpath()
oldpattern=zxamactpattern()
zxampattern('#?.scr')
nombre=zxamloadrequester('Selecciona el fichero .scr...')
zxamloadpath(oldpath)
zxampattern(oldpattern)
if nombre='' then exit 0 /* CANCEL */
pantalla=zxampploadfile(nombre) /* cargamos el fichero completo */
if length(pantalla)~=6912 then exit /* comprobar si es una pantalla de spectrum */
zxamputmem(16384,pantalla) /* colocar el fichero en la pantalla... */
/* dejar el emulador como estaba */
if running=1 then zxamrun()
exit